function dstr=strdate(varargin)
% function dstr=strdate;
% Produce a STRing Date 
% Of the form mm_dd  to save files 
%dstr=datestr(now,6); 
%dstr=[dstr(1:2) '_' dstr(4:5)];
switch nargin
    case 0
        dstr=datestr(now,2);
        e=findstr(dstr,'/');
        dstr(e)=' ';
    case 1
        dstr=datestr(now); 
        e=findstr(dstr,'-');
        dstr(e)=' ';
        e=findstr(dstr,':');
        dstr(e)=' ';
end
